home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / ghostscript / 8.64 / Resource / Init / gs_cidfm.ps < prev    next >
Encoding:
Text File  |  2009-04-17  |  4.5 KB  |  130 lines
  1. %    Copyright (C) 2000 Artifex Software, Inc.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_cidfm.ps 8954 2008-08-08 04:22:38Z ray $
  17. % Redefine CIDFont category with cidfmap .
  18.  
  19. languagelevel 2 .setlanguagelevel
  20.  
  21. 4 dict begin
  22. /CategoryName /CIDFont def
  23.  
  24. /MapFileName (cidfmap) def
  25.  
  26. /IsMyRecord      % <raw_record> -> <raw_record> bool
  27. { % Only for client's needs.
  28.   dup type /nametype eq
  29. } bind def
  30.  
  31. /RecordVirtualMethods 3 dict begin
  32.  
  33.   /MakeInstance   % <Name> <record> MakeInstance <Name> <Instance> <size>
  34.   { % We know that currentdict is the category.
  35.     /Substitute get FindResource            % /Name <<CIDFont>>
  36.     dup length dict copy                    % /Name <<CIDFont>>
  37.     1 index ResourceStatus pop exch pop     % /Name <<CIDFont>> size
  38.   } bind def
  39.  
  40.   /GetFilePath  % <scratch> <Name> <record> GetFilePath <filepath>
  41.   { % We know that currentdict is the category.
  42.     exch pop
  43.     /Substitute get exch ResourceFileName
  44.   } bind def
  45.  
  46.   /GetSize   % <Name> <record> GetSize <size>
  47.   { % We know that currentdict is the category.
  48.     /Substitute get ResourceStatus {
  49.       exch pop exch pop
  50.     } {
  51.       /undefinedresource signalerror
  52.     } ifelse
  53.   } bind def
  54.  
  55.   /GetCSI   % <record> GetCSI null
  56.           % <record> GetCSI dict
  57.   { % We know that currentdict is the category.
  58.     RESMPDEBUG { (cidfm GetCSI beg ) = } if
  59.     /Substitute get            % /Name
  60.     GetCIDSystemInfoFromMap
  61.     RESMPDEBUG { (cidfm GetCSI end ) print dup = } if
  62.   } bind def
  63.  
  64.   /IsActive % <record> IsActive <bool>
  65.   { pop true
  66.   } bind def
  67.  
  68. currentdict end def
  69.  
  70. /VerifyMap  % <raw_map> VerifyMap -
  71. { % Checks for vicious substitution cycles.
  72.   dup length dict copy                  % <<map>>
  73.   dup length dict                       % <<map>> <<temp>>
  74.   { % Choose a random record :
  75.     true 2 index {                      % <<map>> <<temp>> true /Name /Subs
  76.       3 2 roll pop false exit           % <<map>> <<temp>> /Name /Subs false
  77.     } forall
  78.     { exit                              % <<map>> <<temp>>
  79.     } if                                % <<map>> <<temp>> /Name /Subs
  80.     % Move the substitution chain to <<temp>>, checking for a cycle :
  81.     3 index 2 index undef               % <<map>> <<temp>> /Name /Subs
  82.     exch 2 index exch 0 put             % <<map>> <<temp>> /Subs
  83.     { //IsMyRecord exec not {
  84.         % Not a substitution, the chain terminates.
  85.         pop exit                        % <<map>> <<temp>>
  86.       } if                              % <<map>> <<temp>> /Subs
  87.       1 index 1 index known {
  88.         (Vicious substitution cycle in map file with the entry ) print =string cvs print ( .) =
  89.         /VerifyMap cvx /undefinedresource signalerror
  90.       } if                              % <<map>> <<temp>> /Subs
  91.       1 index 1 index 0 put
  92.       dup 3 index exch .knownget not {  % <<map>> <<temp>> /Subs
  93.         % No more substitutions, the chain terminates.
  94.         pop exit                        % <<map>> <<temp>>
  95.       } if                              % <<map>> <<temp>> /Subs /Subs1
  96.       exch                              % <<map>> <<temp>> /Subs1 /Subs
  97.       3 index exch undef                % <<map>> <<temp>> /Subs1
  98.     } loop
  99.     % Not cycled, now purge the <<temp>> :
  100.     { % Choose a random record :
  101.       true 1 index {                    % <<map>> <<temp>> true /Name /Subs
  102.         3 2 roll pop false exit         % <<map>> <<temp>> /Name /Subs false
  103.       } forall
  104.       { exit                            % <<map>> <<temp>>
  105.       } if                              % <<map>> <<temp>> /Name /Subs
  106.       % Remove it :
  107.       pop 1 index exch undef            % <<map>> <<temp>>
  108.     } loop
  109.   } loop
  110.   pop pop                               %
  111. } bind def
  112.  
  113. /PreprocessRecord  % <map> <Name> <raw_record> PreprocessRecord <map> <Name> <record> <bool>
  114. { //IsMyRecord exec {
  115.     1 dict begin
  116.     /Substitute exch def
  117.     /RecordVirtualMethods //RecordVirtualMethods def
  118.     currentdict end
  119.     true
  120.   } {
  121.     false
  122.   } ifelse
  123. } bind def
  124.  
  125. currentdict end 
  126.  
  127. /MappedCategoryRedefiner /ProcSet findresource /Redefine get exec
  128.  
  129. .setlanguagelevel
  130.